home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / clrdsp.arc / CPP3201.DSP next >
Text File  |  1991-12-04  |  7KB  |  122 lines
  1.      A                                      REF(CUSTMAST.*LIBL)
  2.      A                                      INDARA
  3.      A                                      PRINT
  4.      A                                      CHECK(AB)
  5.      A                                      CA01(01 'EndPgm')
  6.      A                                      CA06(06 'Nullify')
  7.      A                                      HOME(06)
  8.      A          R CPP3201T
  9.      A                                  1  3DATE
  10.      A                                      EDTCDE(Y)
  11.      A                                  1 12TIME
  12.      A            PGMNAM        10A  O  1 70
  13.      A                                  1 27'Q38 - Sample Data Entry'
  14.      A                                      DSPATR(HI)
  15.      A          R CPP3201B
  16.      A                                      OVERLAY
  17.      A                                 23  2'CMD'
  18.      A                                 23  6'1-End, 3-Mode, 6-Nullify, 7-Search-
  19.      A                                      , 11-Delete'
  20.      A                                      DSPATR(RI)
  21.      A          R CPP3201A                  ERASE(CPP3201D)
  22.      A                                      CF03(03 'Change the mode')
  23.      A                                      CF07(07 'Search facility')
  24.      A                                      OVERLAY
  25.      A                                      SETOF(10)
  26.      A                                      SETOF(11)
  27.      A                                  3  3'Account:'
  28.      A            ACTNBR         7Y 0B  3 12EDTCDE(Z)
  29.      A  10                                  ERRMSG('Account not found.  Press C-
  30.      A                                      F3 for add mode.' 10)
  31.      A  11                                  ERRMSG('Account already exists.  Pr-
  32.      A                                      ess CF3 for update mode' 11)
  33.      A                                  3 21'or Search data:'
  34.      A            SCHDTA        32A  B  3 37
  35.      A            MODE           8A  O  4 12DSPATR(HI)
  36.      A                                  4 21'mode'
  37.      A          R CPP3201C
  38.      A                                      CHGINPDFT(UL LC)
  39.      A                                      OVERLAY
  40.      A                                      CF02(02 'PRIOR DISPLAY')
  41.      A N10                                  CF11(91 'DELETE THE RECORD')
  42.      A  95                                  ERASEINP(*ALL)
  43.      A                                      PUTOVR
  44.      A N92                                  ROLLUP(45 'Roll to next record.')
  45.      A N93                                  ROLLDOWN(46 'Roll to prior record.')
  46.      A                                  3  3'Account:'
  47.      A            ACTNBR         7Y 0O  3 12EDTCDE(Z)
  48.      A                                      OVRDTA
  49.      A            MODE           8A  O  4 12DSPATR(HI)
  50.      A                                      OVRDTA
  51.      A                                  4 21'mode'
  52.      A                                  6  8'Company:'
  53.      A            CSTNAM    R        B  6 17
  54.      A N95                                  OVRDTA
  55.      A                                      OVRATR
  56.      A                                      DSPATR(MDT)
  57.      A                                  7 11'Name:'
  58.      A            CSTATN    R        B  7 17
  59.      A N95                                  OVRDTA
  60.      A                                      OVRATR
  61.      A                                      DSPATR(MDT)
  62.      A                                  8 10'Title:'
  63.      A            CSTTTL    R        B  8 17
  64.      A N95                                  OVRDTA
  65.      A                                      OVRATR
  66.      A                                      DSPATR(MDT)
  67.      A                                  9  7'Address1:'
  68.      A            CSTAD1    R        B  9 17
  69.      A N95                                  OVRDTA
  70.      A                                      OVRATR
  71.      A                                      DSPATR(MDT)
  72.      A                                 10  7'Address2:'
  73.      A            CSTAD2    R        B 10 17
  74.      A N95                                  OVRDTA
  75.      A                                      OVRATR
  76.      A                                      DSPATR(MDT)
  77.      A                                 11 11'City:'
  78.      A            CSTCTY    R        B 11 17
  79.      A N95                                  OVRDTA
  80.      A                                      OVRATR
  81.      A                                      DSPATR(MDT)
  82.      A                                 12 10'State:'
  83.      A            CSTSTE    R        B 12 17CHGINPDFT(UL)
  84.      A N95                                  OVRDTA
  85.      A                                      OVRATR
  86.      A                                      DSPATR(MDT)
  87.      A                                 12 27'Zip:'
  88.      A            CSTZIP    R        B 12 32CHGINPDFT(UL)
  89.      A N95                                  OVRDTA
  90.      A                                      OVRATR
  91.      A                                      DSPATR(MDT)
  92.      A                                 13  8'Country:'
  93.      A            CSTCTR    R        B 13 17CHGINPDFT(UL)
  94.      A N95                                  OVRDTA
  95.      A                                      OVRATR
  96.      A                                      DSPATR(MDT)
  97.      A                                 14  6'Area Code:'
  98.      A            CSTARA    R        B 14 17
  99.      A N95                                  OVRDTA
  100.      A                                      OVRATR
  101.      A                                      DSPATR(MDT)
  102.      A                                 14 22'Phone:'
  103.      A            CSTPHN    R        B 14 29
  104.      A N95                                  OVRDTA
  105.      A                                      OVRATR
  106.      A                                      DSPATR(MDT)
  107.      A                                      EDTCDE(Z)
  108.      A                                 14 38'Ext:'
  109.      A            CSTEXT    R        B 14 43CHGINPDFT(UL)
  110.      A N95                                  OVRDTA
  111.      A                                      OVRATR
  112.      A                                      DSPATR(MDT)
  113.      A          R CPP3201D                  OVERLAY
  114.      A                                  6 11'* * * * * * D E L E T E   C U S T -
  115.      A                                      O M E R * * * * * *'
  116.      A                                      DSPATR(RI)
  117.      A                                  9 14'Are you sure you want to delete th-
  118.      A                                      is customer?'
  119.      A            ANSWER         1   I 12 34CHGINPDFT(RI)
  120.      A                                      VALUES('Y' 'N')
  121.      A                                 12 36'(Y/N)'
  122.